home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / ras.asc < prev    next >
Text File  |  1987-04-21  |  2KB  |  48 lines
  1. 500 locate 0,0
  2. 501 pen 3
  3. 502 centre "A small example of scrolling rasters through text"
  4. 503 cdown
  5. 504 centre "In STOS and no machine code !"
  6. 505 cdown
  7. 506 centre "All code by Ben of FRS"
  8. 507 cdown : cdown
  9. 508 centre "Hi to : ACO & WTF for misty, nice demos guys"
  10. 509 cdown
  11. 510 centre "and hello also to :- Lewis.B ( remember me? hi also to his sis! )"
  12. 511 cdown
  13. 512 centre "hello to anyone at Accrington College ( that's where I go ! )"
  14. 513 cdown
  15. 514 centre "also to Tony Greenwood who lives somewher near me! Hi Tony"
  16. 515 cdown
  17. 516 centre "Oh and to all members of FRS!"
  18. 517 centre "i.e. Chris,Col,Dan and moi !"
  19. 518 centre "and Dan, only a few weeks and then FALCON time!"
  20. 519 cdown : cdown : cdown
  21. 520 centre "This program is running in Medium res and still has lots of colour"
  22. 521 cdown
  23. 522 centre "but it is only a very simple raster routine"
  24. 523 cdown
  25. 524 centre "still its not bad though is it?!"
  26. 525 cdown : cdown
  27. 526 cdown : cdown : cdown
  28. 527 centre "Well , you might as well quit now and get coding some STOS!!"
  29. 528 cdown
  30. 529 centre "as I can't think of anything else to say now , except this"
  31. 530 cdown
  32. 531 centre "PARTY ON DUDES !!"
  33. 532 I=0
  34. 533 fade 2,,,,$777 : wait 14
  35. 534 rem { Simple raster routine }
  36. 535 DELAY=25 : rem { Try different values }
  37. 536 restore 545
  38. 537 for R=0 to DELAY
  39. 538 next R
  40. 539 for C=1 to 37
  41. 540 read CL
  42. 541 doke $FF8246,CL : rem { Text colour register }
  43. 542 next C
  44. 543 K$=inkey$
  45. 544 if K$>"" then fade 1 : wait 8 : default : end : else 536
  46. 545 data $101,$202,$303,$404,$505,$606,$703,$701,$600,$500,$400,$300,$200,$1,$2,$3,$4,$5,$6,$7,$6,$5,$4,$3,$2,$1
  47. 546 data $20,$30,$40,$50,$60,$70,$60,$50,$40,$30,$20
  48.